(RETURN_UNGCPRO): Swallow semicolon.

(GCPRO5): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index a66c1c97178abe293948625a1068356043a6a79e..cd3f7fc7c3ce5d7bbf85510e185c143215c6360d 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -1069,6 +1069,14 @@ struct gcpro
   gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
   gcprolist = &gcpro4; }
 
+#define GCPRO5(varname1, varname2, varname3, varname4, varname5) \
+ {gcpro1.next = gcprolist; gcpro1.var = &varname1; gcpro1.nvars = 1; \
+  gcpro2.next = &gcpro1; gcpro2.var = &varname2; gcpro2.nvars = 1; \
+  gcpro3.next = &gcpro2; gcpro3.var = &varname3; gcpro3.nvars = 1; \
+  gcpro4.next = &gcpro3; gcpro4.var = &varname4; gcpro4.nvars = 1; \
+  gcpro5.next = &gcpro4; gcpro5.var = &varname5; gcpro5.nvars = 1; \
+  gcprolist = &gcpro5; }
+
 /* Call staticpro (&var) to protect static variable `var'. */
 
 void staticpro();
@@ -1079,13 +1087,15 @@ void staticpro();
    to have a `do ... while' clause around this to make it interact
    with semicolons correctly, but this makes some compilers complain
    that the while is never reached.  */
-#define RETURN_UNGCPRO(expr)           \
-    {                                  \
-      Lisp_Object ret_ungc_val;                \
-      ret_ungc_val = (expr);           \
-      UNGCPRO;                         \
-      return ret_ungc_val;             \
-    }
+#define RETURN_UNGCPRO(expr)                   \
+do                                             \
+    {                                          \
+      Lisp_Object ret_ungc_val;                        \
+      ret_ungc_val = (expr);                   \
+      UNGCPRO;                                 \
+      return ret_ungc_val;                     \
+    }                                          \
+while (1)
 \f
 /* Defined in data.c */
 extern Lisp_Object Qnil, Qt, Qquote, Qlambda, Qsubr, Qunbound;